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ABSTRACT 


A  computer  subroutine  package  written  at  the  University  of 
Wisconsin  to  produce  line  printer  plots  has  been  Modified 
to  run  on  HBL'a  COC  38OO  Cosqputer.  Line  printer  plots  are 
valuable  for  scientists  who  want  a  fast  and  econonlcal 
Method  of  producing  plots  but  who  do  not  require  a  high 
resolution  capability. 


FROBUM  STASnS 


A  final  report  on  one  phase  of  the  problem;  work  is 
continuing  on  other  phases. 
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A  3BOO  Computer  Subroutine  Package  to  Produce  Line  Printer  Plote 


mRODOCTION 


A  coiputer  eubroutlne  package  written  to  produce  line  printer  plote 
for  the  Control  Data  Corporation  3^00  Cooputer  by  personnel  of  the 
CoaQ>utlng  Center  of  the  UnlTerslty  of  Wleconeln,  Madison,  Wisconsin 
has  been  modified  for  URL's  CDC  38OO  Drvm  SCOPE  Computer  System. 

!Ehe  following  subroutine  description  contains  many  excerpts  from  the 
original  docusentatlon  received  from  the  Unlversl'ty  of  Wisconsin 
(Section  Reference  (l)). 

The  line  printer  plot  eubroutlne,  ({RAFB2,  Is  Intended  to  be  valu¬ 
able  for  scientists  who  want  a  fast  a^  econo^cal  method  of  producing 
plots  of  their  data  but  who  do  not  require  the  high  resolution  (100 
points  per  Inch)  of  the  CALCOMP  plotter  (Section  3>13>  Reference  (2)). 

Throughout  this  report,  a  "plot"  will  mean  one  set  of  axes  (abscis¬ 
sa  and  ordinate)  and  sill  the  curves  to  be  plotted  on  this  set  of  axes 
(e.g.  -  five  curves  plotted  on  one  set  of  axes  would  be  one  plot). 

A  "curve"  will  mean  that  which  Is  generated  from  one  set  of  data  points 
by  one  call  to  (2RAPB2. 

The  remainder  of  this  report  describes  the  use  of  the  line  printer 
plot  subroutine,  (IRAFB2. 
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SUBROUmiE  PESCRimOW 


1.0  IDEmFICATION 
l.L  Title 

Line  Printer  Plot 

1.2  Identification  Mame 
J5-KRL-PRPI^ 

1.3  Classification  Code 
J3  -  Ou-^t,  Plotting 

1.4  BCC  Identification  Iftniber 
J5OO2R0O 

1.5  Entry  Points 

(2RAPB2 

CKAPBaX 

aRAFBZT 

(SlAPSXr 

FICIURE 

1.6  Progranming  Tiangxwge 

a 

Language:  36OO  FORimAH  and  COMPASS  5*3 
Routine  I^pe:  Subroutine 
Operating  System:  ERUM  SCOPE  2.0 

1.7  Coaputer  and  Configuration 
CDC  3800 

1.8  Contributor  or  Programner 

Dianna  L.  Denton,  Code  78l7CD»  Research  Computation  Center, 

Matheoatics  and  Infomation  Sciences  Dirision 

1.9  Contributing  Organixation 

URL  -  Ha-val  Reseazuh  Laboratory  -  Washington,  D.  C.,  20390 
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1.10  Rrogrii  Avallabllltiy 

1.10.1  Subalttal:  Parogr—  vrlte-qp,  Fortanui  and  CoapMs 

source  deck,  source  llstlDg 

1.10.2  On  File;  RCC  Prograa  Library 

1.11  Verification 

See  Section  f,0,  fDest  Method  and  Results 

1.12  Date 

K)  June  1969 

2.0  FORFOSE 


2.1  Description  of  the  Routine 

CSiAFB2  produces  a  plot(s)  on  the  line  printer  froa  user 
specified  data  (tvo  data  arrays).  In  addition  to  producing  the 
plot,  (2RAFB2  performs  the  foUovlng  functions: 

(a)  Frlnts  a  special  sysbol  for  all  points  on  a  curve 
(optional),  or  uses  a  standard  syabol. 

(b)  Prints  plot  title  (optional). 

(c)  ftlnts  abscissa  and  ordinate  axes  vlth  titles 
(titles  are  optional). 

(d)  Prints  nvnerlc  labeling  of  the  axes  to  Indicate 
oagnl  tildes. 

(e)  AUovs  overlay  curves  (multiple  curves)  on  one  set 
of  axes. 

(f)  Determines  shifting  and  srsallng  so  that  the  data 
vlU  fit  the  user  specified  plot  dimensions,  or 
allovs  the  user  to  specify  the  shifting  and  scaling 
factors. 

(g)  Provides  for  multiple  copies  of  a  given  plot 
(entry  point  FICIURE). 

(h)  Allovs  plots  to  vary  In  slse  betveen  the  limits  of 
5x9  Inches  to  25  x  10  Inches,  vhere  the  abscissa 
length  Is  specified  first. 
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2.2  Pr6bl«a  BtcKgrotmd 


(BiAFE2  VM  acquired  to  aeet  the  need  of  thoae  aclentlata 
vho  vmnt  a  leas  erpeoslve  auid  faster  nethod  for  plotting 
hut  vho  do  not  require  a  high  resolution  capability. 

qSAQE 

TbB  physical  appearance  of  the  axes,  the  axes  labels,  the  axes 
titles,  and  the  plot  title  is  described  in  Section  3«3,  Output. 

Described  belov  (Parts  A,  B,  C,  and  D)  are  the  four  basic 
sequences  (Standard,  Expeuided,  Standard  Overlay,  and  Expanded 
Overlay)  for  0RAPB2.  which  aastne  that  the  two  data  arrays  (abscissa 
and  ordinate  values)  to  be  plotted  are  TIPS  REAL.  Part  E  belov 
gives  the  entry  points  to  be  used  when  one  or  both  of  the  data 
arrays  are  TZPE  UTQXIES.  Part  F  belov  describes  the  PICIEURE 
subroutine  sequence. 

A.  Standard  CBIAPHB  Calling  Sequence  (QRAPH2  Ccnputes 

SOaling  and  Shifti^). 

CALL  (IRAPB2  (X,  T,  H,  ISZZE,  ISCALE,  ITmE,  IXHILE, 
irnTLE,  zsx»a0L) 

Hhe  above  call  is  used  when  the 

(1)  sealing  and  shifting  factors  are  to  be  computed  by 
(HiAPB2,  and 

(2)  the  curve  is  not  to  be  overlaid  on  the  preceding 
set  of  axes. 

Ihe  above  call  will  cause 

(1)  the  preceding  plot  (if  any)  to  be  printed  (unless 
PICTORE  has  been  called  since  the  previous  call 
to  QRAPB2),  and 

(2)  the  new  axes,  titles,  and  curve  to  be  generated, 
but  not  printed. 

B.  Expanded  CB<APH2  Calling  Sequence  (User  Supplied  Scaling 

and  Shifting  Factors). 

CALL  ORAPHP  (X,  T,  N,  ISIZE,  ISCALE,  XSHIFT,  XSCALE, 
YSECFT,  XSCALE,  ITITLE,  IXXITLE,  ITTITUS, 
ISXMS^L) 


Olhe  above  call  !•  used  vhen 

(1)  the  user  specifies  the  sealing  and  shifting 
factors,  and 

(2)  ^  curve  Is  not  to  be  overlaid  on  a  previous 
set  of  axes. 

ISCALE  must  be  equal  to  UHEXSIN  (See  Section  3.2,  I9CALE). 
The  above  call  vlU  cause: 

(1)  The  preceding  plot  (if  any)  to  be  printed  (unless 
PICTURE  has  been  called  since  the  previous  call 
to  (BtAPB2),  and 

(2)  the  current  axes,  titles,  and  curve  to  be  generated, 
but  not  printed. 

C.  Standard  Overlay  Calling  Sequence; 

CALL  (!RAFH2  (X,  Y,  N,  Tq^'VERLAI,  ISCALE,  ISYMB^) 

The  above  call  Is  used  vhen  the 

(1)  sealing  and  shifting  factors  are  to  be  eoeqputed 
by  GRAPH2,  and 

(2)  the  cxirve  Is  to  be  overlaid  on  the  preceding  set 
of  axes. 

The  first  curve  and  the  axes  of  the  plot  must  have  been 
generated  using  the  Standaxd  or  Expanded  QRAPB2  calling 
sequence. 

The  above  call  causes  the  current  curve  to  be  generated, 
but  not  plotted. 

All  cxirves  of  an  overlay  plot,  except  the  first,  must  be 
generated  using  an  Overlay  CsLlling  Sequence.  Any  number 
of  overlay  cuzves  may  be  generated  for  a  particular  plot, 
lovever,  the  nuaber  of  different  symbols  vhlch  may  be 
used  to  distinguish  betveen  the  curves  is  restricted  to 
ten  (See  Section  3 >2,  ISINp^L). 

D.  Expanded  Overlay  Calling  Sequence; 

CALL  ORAFBP  (X,  T,  N,  T^j^VERLAY,  ISCALE,  XSECFT,  XSCALE, 
YSHIFT,  YSCALE,  ISIMB^L) 

The  above  call  Is  used  vhen  the 

(l)  user  specifies  the  scaling  and  shifting  factors,  and 
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(2)  the  curve  Is  to  he  overlaid  on  a  previous  set  of  auces 


ISCALE  must  he  equal  to  UhEXSSI  (See  Section  3*2,  ISCAU). 


!Ihe  above  call  will  cause  the  ciurent  curve  to  he  generated, 
hut  not  plotted. 

All  curves  of  an  overlay  plot,  except  the  first,  mist  he  generated 
using  an  Overlay  Calling  Sequence.  Any  nusber  of  overlay  curves 
any  he  generated  for  a  particular  plot.  Eotrerer,  the  nuiher  of 
different  symbols  vhich  nay  he  used  to  distinguish  hetmen  the 
curves  is  restricted  to  ten  (See  Section  3*2,  ISlHBftei). 


E.  Calling  Sequence  for  Integer  Data  Array(s); 


If  one  or  both  of  the  data  aurays  are  TIFI  unUSER,  different 
entry  points  of  (ffiAPB2  must  he  used.  Cie  entry  point  to  he 
used  is  chosen  according  to  the  foUoving  table: 

Abscissa  Array(X)  Ordinate  Array(T)  Bitry  Point 


TXPE  REAL 
TIPS  nTESQt 
TZFE  REAL 
TIFB  SnSSHt 


TIPE  REAL 
TYPE  REAL 
TZFE  QfDBQER 
TZPE  ISZEOER 


(ffiAPBS 

GRAPB2Z 

(«APB2T 

aRAPB2Xr 


The  parameter  lists  are  the  same  as  described  in  the  calling 
sequences  to  ORAPBS.  For  exaagle,  if  the  abscissa  values  of 
the  data  to  he  plotted  atre  in  the  TZFE  REAL  airray  Z,  and  the 
ordinate  values  axe  in  the  TZPE  IRTESISt  aurray  IT,  then  the 
Standard  Calling  Sequence  (See  A  above)  is: 

CALL  (mAFB2T(X,  IT,  H,  ISIZE,  ISCALE,  ITIOIE,  IXTITLE, 
imTLE,  ISlNil^L). 


F.  PICTURE  flailing  Sequence: 


CAU.  PICTURE 


The  above  call  is  neoessary  to 

(1)  print  the  lAst  plot  produced  in  a  sequence  of  one  or 
more  calls  to  GRAPR2,  or 

(2)  print  multiple  copies  of  a  plot  produced  by  the  previous 
0RAPB2  call  (n  calls  to  PICTURE  vlU  produce  n  copies  of 
the  last  plot  generated  by  aRAPB2). 
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Tot  exaople, 


CALL  (BMPB2  (appropriate  paraaetere) 


CAU.  FICmRE 


viU  generate  the  plot  In  the  call  to  CSIAPBS  and  print  the 
plot  in  the  can  to  PICTURE.  If  PICTORE  vere  now  called  n 
more  ttaeaf  n  sore  copies  of  the  plot  would  be  printed. 

A  call  to  CD<AFH2  causes  the  preceding  plot  (if  any)  to  be 
printed.  This  is  true  except  when  PICTURE  has  been  called 
pzlor  to  calling  CEtAPBP. 


3.2  ArgiMents«  Parameters ,  and/or  Initial  Conditions 


Initial  Condi tlo;is: 


Before  calling  0RAPB2  (or  QRAPB2X,  CSIAPBS!!,  or  GRAPBRXI), 

2  one-dlmenslonal  arrays,  containing  the  data  to  be  plotted, 
must  be  stored  In  the  cosq^uter  (one  array  containing  the 
abscissa  values,  the  other  the  ordinate  values).  Bach  of 
these  arrays  can  be  either  TYPE  REAL  or  nPE  lETWER  (See  the 
X  and  T  parameters  below).  In  Section  3*1  Parts  A,  B,  C,  and 
D,  calling  sequences  are  described  for  the  TYPE  RE^  case 
only.  In  Section  3.I,  Part  E,  the  use  of  0RAPB2  when  one 
or  both  of  the  coordl^te  arrays  are  TIPE  UTKUER,  Is  described. 


Parameters: 


X  -  TYPE  REAL  array  containing  the  abscissa  valxies 
to  be  plotted.  Tb  use  a  TYPE  lETEQER  array,  see 
Section  3<1< 


Y  -  TYPE  REAL  array  containing  the  ordinate  values  to 
be  plotted.  To  use  a  TYPE  XETEOER  array,  see  Section 

3.1. 


R  -  Integer  nvnber  which  specifies  both 

(1)  the  nunber  of  points  to  be 
plotted,  and 

(2)  the  plotting  mode. 


If  H  Is  positive,  the  effect  of  a  continuous 
line  Is  produced  by  use  of  linear  Interpolation 
to  fill  In  values  between  successive  data  points, 
(since  this  Is  analogous  to  pen-down  plotting 
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node  on  a  plotter,  It  will  hereafter  be  referred 
to  as  "pen-dotm”  mode).  If  N  is  negative  only 
those  points  contained  In  the  arrays  are  plotted, 
(nils  vlU  be  referred  to  as  "pen-up"  mode). 

The  first  |ll|  points  of  the  X  and  Y  arrays  are 
plotted;  INI  must  be  ^the  size  of  the  X  and  Y 
surrays. 


ISIZE  -  a  Hollerith  designator  vhlch  specifies  the 
dimension  (in  Inches)  of  the  plot. 

ISIZE  =  ^HLARSE  for  an  6  x  l6  Inch  plot 

ISIZE  =  5BSMALL  for  a  6  x  8  inch  plot 

ISIZE  =  for  a  user  specified 

plot  size  vhere, 

XX  =  X-axls  length  In  Inches  (5^xx^2^) 
yy  =  Y-axls  length  In  Inches  (5^yy  ^10) 


ISCALE  -  a  Hollerith  designator  vhlch  specifies 

the  type  of  scaling  to  be  used  on  the  data. 

(1)  Automatic  Scaling:  ISCALE  =  UHAUI!^ 

Autonatlc  scaling  causes  the  program  to 
fit  the  data  points  Into  the  plot  size 
as  specified  by  the  pcurameter  ISIZE.  To 
locate  the  origin,  the  plot  Is  classified 
Into  one  of  three  types  In  each  direction. 
This  cla sc  If  1  cation  depends  upon  the  signs 
of  the  maximum  suid  minimum  values  of  each 
of  the  tvo  coordinate  arrays. 

The  position  of  the  origin-point  of  the 
plot  within  the  defined  plotting  rectangle 
is  shown  In  Figures  la.  and  lb.  Combinations 
of  the  two  sets  of  figures  are  peiroitted. 


Ordinate  data 
all  positive 


0 


Ordinate  data 
all  negative 

0. - 


Ordinate  data 
both  t  and  - 


0 


Figure  laj  Position  Of  The  Ordinate  Origin  As  A 

Function  Of  The  Sign  Of  The  Ordinate  Data. 


8 


Abscissa  data  Abscissa  data  Abscissa  data 
all  positive  all  neaatlvs  both -f  and  - 


Figure  lb:  Position  Of  Cie  Abscissa  Origin 
As  a  Function  Of  Qie  Sign  Of  The 
Abscissa  Data. 

Scaling  of  the  curve  data  Is  by  powers 
of  two  such  that  the  Msultant  curve  ocetqples 
at  least  one-half  of  the  allowable  plotting 
length  for  each  coordinate  axis.  For  best 
results,  IF  M  Is  the  sMudnua  of  the  absolute 
values  of  the  data  for  one  axis,  the  length 
of  that  axis  in  Inches,  as  specified  by  the 
parameter  ISIZE,  should  be  slightly  greater 
than  (or  exactly  equal  to)  one  of  the  tenns 
of  the  sequence  .  .  ,  1/^,  2H, 

ItM,  .  .  .  . 

For  exBiqple,  svvpose  that  the  abscissa 
coordinate  values  of  the  points  to  be 
plotted  range  frost  31*5  to  46.0,  so  that 
M  =46.0.  Then  the  best  choices  of  abscissa 
axis  length.  In  Inches  sure:  23  (exactly  l/^)» 
12  (slightly  greater  than  l/kHf  and  6  (slightly 
greater  than  1/8m). 

(2)  Biased  Scaling:  ZSCALB  =  4HBIA8 

Under  this  qptlon,  the  ■Iniam  value  of 
each  coordinate  array  Is  subtracted  from 
the  corresponding  coordinate  of  each  data 
point  before  the  point  Is  plotted.  FOr 
each  suds,  scaling  Is  by  powers  of  two,  as 
above,  except  that  the  difference  between 
the  maxlaisn  and  mlnlavsa  values  of  the  data 
for  that  axis  (rather  than  the  maxlisus  of 
the  absolute  values  of  the  data  for  that 
cuds)  Is  used  to  determine  the  scale  factor. 

For  best  results,  the  corresponding  axis 
length  as  specified  by  the  parsaeter  ISIZI 
should  be  equal  to  or  slightly  greater  than 
this  difference  times  a  power  of  two. 
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(3)  Repeated  Scaling  and  Shifting  factors; 

ISCALE  =  4B3AHE 

With  this  <9tlon,  the  scaling  and  shifting 
faeton  used  In  the  previous  plot  are  also 
to  be  used  in  producing  the  current  plot. 

Hlhls  option  should  be  used  vlth  the  Standard 
Overlay  Calling  Sequence  If  each  curve  Is  to 
be  shifted  and  sealed  by  the  ssae  values  as 
the  inaediately  preceding  eiurve.  If  the 
shifting  and  sealing  is  to  be  different, 
see  the  other  ISCALE  options.  Bovever,  it 
should  be  remembered  that  the  nuaerlc  values 
written  on  each  axis  sa*e  beised  on  the  scaling 
and  shifting  factors  \ised  for  the  first  curve 
plotted  <ni  those  axes. 

(k)  Unsealed  Data:  ISCALB  = 

This  option  la  provided  to  plot  the  data  with 
no  scaling  or  shifting.  When  using  this  cation 
the  tiser  must  be  sure  that  his  data  Is  properly 
scaled  and  centered  to  fit  Into  the  plot  size. 

(5)  User  Specified  Scaling  and  Shifting; 

ISCALE  =  4HEm 

This  option  causes  the  four  real  parameters, 
XSHDT,  ISCALE,  I8HI7T,  and  TSCALE,  to  be  used 
for  shifting  a^  sealing  the  data.  This  pption 
can  only,  axid  must,  be  used  in  the  &qpanded 
(SIAPB2  calling  Sequence  (See  Section  3*1>  Fart  B), 
and  in  the  Expanded  Overlay  Calling  Sequence 
(See  Section  3.I,  Part  D). 

If  and  are  unscsLled  abscissa  and  ordinate 
values  respectively,  then  the  corresponding 
plotted  values  in  Inches,  relative  to  the  lower 
left  hand  comer  of  the  plot  rectangle  after 
rotation  (see  Section  3<B)  will  be: 

3^  -  XSHIFT  -  ISHEPT 

-  and  - 

XSCALE  ISCALE 

XSHIFT  -  A  real  value  which  specifies  the  aiaoimt  of  shift 
for  the  abscissa  values.  The  point  on  the  x-axis 
at  the  lower  left>hand  comer  of  the  plot  rectangle 
sifter  rotation  (see  Section  3>8)  vlU  be  annotated 
by  ISHUT. 
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XSCALE 


-  a  real  value  vhleh  apeelflea  the  scale  factor 
for  the  shifted  abscissa  values.  Ihis  Is  the 
Increnent  used  to  increase  XSECFT  to  calculate 
the  annotation  value  ami  the  plotted  value  for 
each  tick  nark  after  the  first  tick  nark  (where 
a  tick  mark  occurs  every  inch).  Thus,  the 
annotation  and  the  value  plotted  at  the  nth 
tick  nark  will  be  X3IIIT  *  (n-l)  XBCAI2. 

XBflm  -  a  real  value  vhleh  epecifies  the  amount  of 
shift  for  the  ordinate  values.  The  point  on 
the  y-axis  at  the  lover  left-hand  comer  of 
the  plot  rectangle  after  rotation  (see  Section 
3.8)  will  be  annotated  by  TSHIFT. 

TSCALE  -  A  real  value  vhleh  specifies  the  scale  factor 
for  the  shifted  ordinate  values.  This  is  the 
increment  used  to  increase  YSfllFT^  to  ccdculate 
the  annotation  value  and  the  plotted  value  for 
each  tick  nark  after  the  first  tick  nark  (where 
a  tick  mark  occurs  every  inch).  Thus,  the 
annotation  and  the  value  plotted  at  the  nth  tick 
mark  will  be  TSEDT  (n-l)  TSCALE 

Example  of  shifting  and  scaling: 

If  the  abselesa  valiies  range  fron  1^.0  to  I7.O 
and  the  abscissa  axis  length  as  specified  by  the 
parameter  ISIZE  is  5  inches  then  setting  XSHUT  =15.0 
and  XaCALE  =0.4  would  cause  the  abscissa  values  to 
be  shifted  and  scaled  into  the  range  0.0  to  5*0 
Inches,  vhleh  is  the  greatest  possible  range  which 
will  contain  the  data  within  the  axis  length  of 
5  inches. 

ITITLE  -  specifies  the  plot  title  in  one  of  the  following 
two  ways: 

(1)  a  list  of  characters  following  a  Hollerith 
designator. 

(2)  the  name  of  an  Integer  variable  or  array 
in  which  are  stored  the  internal  BCD  codes 
of  the  characters  of  the  desired  title, 
packed  eight  codes  per  word,  left  adjusted 
if  less  than  eight  characters. 

Regardless  of  the  vKy  in  which  the  title  is  speci¬ 
fied,  it  nay  be  at  most  ^  cbamcters  in  length. 

If  less  than  48  cheiracters  are  desired,  the  last  two 
chaxacters  must  be  periods.  QRi\PB2  will  remove  the 
teminatlng  periods  and  the  desired  characters  will 
be  centered  appropriately  before  plotting.  If  no 
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title  18  desired,  the  correepondlog  paraoeter 
■ay  be  given  the  valxie  xero.  Or,  If  none  of 
the  bubDOutlne  paraaaeters  following  imUB 
are  to  be  used,  the  rsVSLX  parameter  and  those 
paraaetera  idilch  follow  It  may  be  onltted 
fron  the  calling  sequence. 

four  examples  of  the  Tarlous  ways  of  q)eclfying 
titles,  and  the  corresponding  output  they 
produce,  follow: 

(1)  ITTELE  =  48E  ORAPEL  SAMPUB,  EXPASDma 

SINE  WAVE 

will  produce  the  title 

GSIAPEI  SAMPLE,  EXPANDINO  SINE  WAVE 

Since  the  title,  vhlch  Includes  seven 
blanks  following  WAVE,  Is  a  full  48 
characters  In  length,  the  last  two 
charaeten  are  not  periods. 

(2)  ITHLE  =  TBMKOE.. 
will  produce  the  title 

AIRKE 

Since  the  title  Is  less  than  48 
characters  in  length,  the  last  two 
characters  aust  be  periods. 

(3)  ITnLB*0 

will  produce  no  title.  When  the 
title  parameter  is  sero,  no  title 
is  produced. 

(h)  miLE  >IL  where  the  variable  IL 
contains  6243607^^533^33338  will 
produce  the  title  SL  (f)  since  IL 
contains  the  BCD  codes  for  SL  (^) 
followed  by  two  periods. 

TrPTTTj;  -  specifies  the  abscissa  axis  title  In 
the  saae  fom  and  with  the  same  rules 
as  for  imLE  above,  with  th^  following 
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exception: 

nie  maxlimin  abscleea  axis  title  length 
depends  on  the  length  of  the  abscissa 
aiis.  If  the  abaelssa  axis  length  is 
greater  than  or  equal  to  8  Inches  the 
naximum  title  length  is  characters, 
as  given  under  ITITLE.  However,  if  the 
axis  length  is  leas  than  8  inches,  the 
maxiimim  number  of  characters  in  tt» 
abscissa  a±is  title  is  equal  to  6* 

(axis  length). 

imiLE  -  specifies  the  ordinate  axis  title  in  the 
same  form  and  with  the  same  rules  as  for 
ITITLE  above. 

ISXM^ftei  -  is  an  optional  parameter  (Hollerith)  used 
to  specify  the  character  to  be  used  by  the 
printer  to  represent  a  given  set  of  data 
points.  For  ejonple.  If  I3TMB0L  ■  IIA, 
the  letter  A  would  be  used  to  plot  the 
curve.  If  ISYMB^L  is  not  present  as  the 
last  parameter  in  the  calling  sequence, 

(JRAPBS  automatically  uses  an  asterisk  (*) 
for  pen-down  plotting  and  a  plus  sign  (+) 
for  pen-iq)  plotting  (See  description  of 
parameter  N  above). 

When  producing  an  overlay  plot,  the  nusber 
of  different  characters  that  may  be  used 
to  differentiate  beWeen  the  various  curves  is 
restricted  to  ten  (e.g.  -  to  produce 
11  curves  on  one  plot,  only  ten  different 
symbols  can  be  used;  two  curves  would 
have  to  use  the  same  symbol). 

3.3  Space  Required  (Decimal  and  Octal) 

3.3*1  Ifaique  Storage; 

4112  octal  (2122  decimal)  locations  excluding  the 

common  block  and  system  library  routines. 

3.3*2  CoBion  Blocks; 

C^5h^N/18273645/ 

Length:  IIO31  octal  (4633  decimal)  locations 
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3.3*3  Teag>orary  Storage; 

None 

3*4  HeiMiges  and  Instructions  to  the  Operator 
None 


Error  Returned  Mee— ges,  and  Codes 

Each  of  the  following  error  messages  are  preceded  by  the 
Identifier  «<mAPB2/. 

(1)  Error  Message  BAD  SIZE/USED  ABSCISSA  = 


Cause  Ihe  length  of  the  Z-axis  as 

specified  by  ISIZE  was  less  than 
3  inches  or  greater  than  25  inches. 

Action  (BIAPB2  will  generate  the  current 
plot  using  an  abscissa  length 
of  25  inches. 


(2)  Error  Message 


BAD  SIZ^/USED  /ARDINATE  =  10 


Cause  The  length  of  the  T*axls  as 

specified  by  ISIZE  was  less  them 
5  Inches  or  greater  them  10  inches. 


Action  CERAPB2  will  generate  the  current 
plot  using  an  ordinate  axis  length 
of  10  inches. 


(3)  Error  Message 


N  E9JAL  ZEI^ 


Caaae  Ihe  number  of  data  points  was 
specified  as  zero. 


Action  Current  call  to  (S<APB2  will  be 
Ignored. 


(4)  Error  Message  ALL  X  ESSENTIALLT  ZER^ 


Cause  Ibis  generally  Mans  that  all 

abscissa  data  had  absolute  values 
of  less  than  lO'^OO.  When  Biu 
Scaling  is  specified,  this  message 
may  also  mern  that  the  range  of 
the  data  was  less  than  10~^^. 
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Action  Current  call  to  GOtAPBZ  vlU  be 
ignored. 

{3)  Error  Message  ALL  T  ESSE3ITIALLT  ZER^ 

Cause  This  generally  aeans  that  all 

ordinate  data  bad  absolute  Talues 
of  less  than  lO'^OO.  Bias 

Scaling  Is  specified,  this  oessage 
imy  also  nean  that  the  range  of 
the  data  was  less  than  lO"^^. 

Action  Current  call  to  0RAPH2  will  be 
Ignored. 

(6)  Error  Message  ^iVERLAT  ERR^ 

Cause  An  attesapt  has  been  nade  to 

generate  an  overlay  curve  prior 
to  generating  a  set  of  axes  by 
using  either  the  Standard  or 
Expanded  GRAPHS  calling  sequence. 

Action  Current  call  to  GRAPES  will  be 
ignored. 

(7)  Error  Message  )^RE  THAR  10  URiqiUE  SXMB0LS 

Cause  This  message  oceiurs  when  an  overlay 
call  specifies  an  eleventh  unique 
sysbol  to  be  used  on  one  set  of 
suces. 


Action  Ihe  current  ceJ.1  to  GRAPHS  and 

all  preceding  calls  pertaining  to 
this  set  of  axes  vlU  be  ignored. 

(8)  Error  Message  THIS  PL^  f^R  ^VLAT  II0T 

Cause  nils  message  follows  all  error 
messages  of  the  vblcb  cause 
the  current  call  to  GRAPHS  to  be 
ignored. 


Hone 


3.7  Input 
Hone 
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3.8  Output 

See  the  senqple  plots  In  Section  7.0. 

The  generated  line  printer  plot  vlll  have  the  following 

automatic  features: 

(1)  Axes 

(a)  The  axes  will  be  drawn  the  length  specified 
by  the  ISI2m  parameter. 

(b)  Each  axis  will  be  numexlcally  labeled  at  every 
Inch  along  the  axis. 

(c)  Each  axis  Is  caaQ>o8ed  of  periods  (.)  and  plus 
signs  (-f)  with  the  plus  signs  occurlng  only 
at  each  Inch  Increment  along  the  axis.  Ihe 
periods  are  written  between  the  plus  signs. 

(d)  The  abscissa  axis  will  be  parallel  to  the 
paper  sprocket  holes. 

(e)  Ihe  ordinate  axis  will  be  perpendicular  to 
the  sprocket  holes. 

If  the  line  printer  page  Is  rotated  coxinterclockwlse 
90°,  the  axes  will  be  in  the  nomal  X,  Y  axis 
arrangement. 

(f)  All  nimerlc  labeling  of  the  axes  Is  written 
with  either  an  F  or  E  Fortran  l/O  format 
(depending  on  the  size  of  the  values)  giving 
3  places  to  the  right  of  the  decimal  point. 

(2)  Titles 

(a)  Ihe  abscissa  axis  title  Is  written  parallel 
to  the  abscissa  eucls. 

(b)  The  ordinate  axis  title  Is  written  parallel  to 
the  ordinate  axis. 

(c)  The  plot  title  Is  written  parallel  to  the  ordinate 
axis,  above  the  ordinate  axis  title. 

(3)  Data  Curves 

Unless  specified  otherwise  by  the  ISlMBf^L  parameter, 

the  plotted  curves  will  have  an  asterisk  (*)  at  each 
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coordinate  If  the  i>araaeter  R  Is  positive  (pen-down 
mode),  or  a  plus  sign  (4*)  If  the  parameter  R  Is 
negative  (pen-\9  mode).  The  pen  mode  Is  defined 
In  Section  3*2,  In  the  R  parameter  description. 


3.9  Foinats 


Rot  applicable 


3.10  External  Routines  and  Symbols 


(HtAPB2A 

(mAPB2B 

CBIAFBZ 

Q^2PBfS 

SEARCH 


J5002K)0  Package  Deck 


ORAPBSX,  GRAPB2T,  ORAFBSXr,  and  PICTURE  are 
entry  points  In  CHMPB2. 


Q1Q04100 

DEC. 

STH.  ‘ 

MAXIF 

QlQlOlOO 

QRSINQL. 

erc. 

IMAXOF 

qBqefj^r 

SU.  ' 

IMDIOF 

CtB^DICT 

02007110 

Ifip.  , 

system  library 


3<11  Timing 


See  the  timing  for  the  saBQ)le  plots  In  section  7.0 


3.12  Accuracy 

The  resolution  of  the  line  printer  Is  10  points  per  Inch 
for  the  ordinate  axis  and  6  points  per  Inch  for  the  abscissa 
axis. 


3.13  Cautions  to  Users 

(1)  If  you  want  the  plots  to  be  printed  on  plain  white  printer 
paper,  you  should  write  "FZHAL  FORM"  at  the  top  of  your  Job 
Request  Fons.  Otherwise,  you  will  get  whatever  paper  Is 

cm  the  line  printer  at  the  time  of  your  run.  Jobs  asking 
for  "FIRAL  fCSMP  usually  are  not  run  until  the  nlf^t  shift. 

(2)  If  the  pe^Mmeter  ISCALE  equals  kBNTSfi  or  4HBIAS,  It  Is 
required  that  both  the  coordinate  arrays  contain  sene 
non-sero  data.  If  all  the  data  In  either  of  the  arrays 
Is  zero,  an  error  message  Is  printed  and  no  ovirve  (or 
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plot)  la  produced. 


(3)  Any  attempt  to  plot  data  outside  the  selected  plot 
slxe  vlll  result  in  the  data  point  In  question  being 
plotted  on  the  Inside  edge  of  the  plot  perimeter. 

3.14  Progrsai  Deck  Structvge 
7  j^B  card 

7  mu  card 
9 


M&ln  Program  deck  (contains  call  to  0RAFB2) 


Subroutine  0RAPB2 
Subroutine  QRAPBSA 
Subroutine  0RAPB2B 
Subroutine  COIAPBZ 
Subroutine  q|3qG2FRT 
Subroutine  SEARCH 
SC0PE  card 


J5-HRL-FRPI^ 


7  I^AD  QArd 
J  ROW  cart 
Data  (if  any) 


^  (end>of-flle  cart) 

3,15  References  -  Literature  -  Appendices 

(1)  GRAPH  PLOmna  via  CALCOMP  ^70  digital  FLCXnSR,  The 
University  of  Wlscrasln  Cosiputlng  Center  Users  Manual, 
Revisions  A  and  B,  2k  Nay  196^  emd  1  December  I966. 


(2)  3800  CALCOMP  PLOnSR  SUEROUTIRE  PACKAGE, 

FREUMmARr  VERSION,  RCC  Nemorandus  78lO-9;ABB:pJ, 
18  September  19^7* 


4.0  METHOD  OR  AIGCRITOf 


Bee  the  author 
5.0  80DRCE  LANGUAGE  LI8TIW0 

Available  In  the  RCC  Program  Library 
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6.0  OOMEMttSON 


Non* 

7.0  TEST  MgTHOD  AND  RPIILTS 


FoUoning  ar*  tha  Uatinca  of  thra*  aampla  prograna  which  nsa  0RAFR2.  Tha  approoclMta 
tlBdng  for  aaeh  call  la  glTan. 

Sanpla  It  n*ograai  ESIf  balow  waa  uaad  aa  a  tast  program. 

FN80RAM  ESH 

OINEN8I0N  X(290t«Y(25e) 

ON  100  Ial,290 
X(l)  •  1-1 

100  Y(I>  a  SINP(X(n/14.329)aEXFriX(I)/l00,0) 

CALI  ORAPM2(X.Yi290.3H9X6*4HA(JT9.2iHEXPANDlNO  SINE  WAVE,,. 
1  7HAN6LE,,,llHHAQNirUDE.,) 

CALL  PICTURE 
END 

Saa  Flgora  1  for  tha  raaulttng  output. 

Tiningt 

CaU  to  (fflAFH2i  0.21  aaconda 
Call  to  RECTDREi  0.21  aaecnda 

Sanpl*  2t  Program  SSCP  balow  lUuatrataa  tha  ovarlay  capabllitlaa  of  0RAni2. 

Tha  output  aianlataa  tha  output  in  tha  aai^a  giron  in  tha  CalComp 
Plotter  Subroutine  Ptckaga  daacription  (Saetlon  J,l^,  Rafarenee  2). 


PR80RAM  SSCP 

0IHENSI8N  PEX(71),FXCUBE{7l),PXL|NEAR(7i)iXPL9T<71) 

X  •  1,0 

D9  100  Ial,71 

PEXd)  a  EXPPIXJ/IO.O 

rxCUBE(l)  a  (X**3a7,0)/10.0  , 

FXLINEAR(I)  ■  <Xa20,0*4,0)/10.0 
100  X  a  Xa0,09 


XPLiTIl)  a  0 
BE  200  Ia2,71 

200  XPLBTMJ  a  XPLBT<l*l»a0,l 

CALL  8RAPH2<XPLBT,Fex,-71,4H7Xl0,4HAyTB, 

1  SXHSINULATBD  SAMPLE  CALCBMP  PLBT. , .IOHaBScISSA, , .IOHSRDINaTI 
CALL  aRAPH2(XPLST|FXCUBE,71,7N|VERLAY,4MSAME) 

CALL  0RAPH2(XPL9T,FXLlNBAR,7l';7MfVERl.AY,4HSAMB,lH,) 


CALL  PICTURE 
END 


• , 


) 
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S««  Figar*  2  for  the  reealtlng  outpat* 

Tlnlngt 

Flret  cell  to  QIiAm2i  0.09  aeoonde 
Second  cell  to  GItAFH2t  0.0^  aeeon(!e 
Third  cell  to  0RAPH2t  O.Olt  eeconda 
Cell  to  FICTURBi  0.36  eeconda 

Sesilo  3t  nx>grem  LPFlffr  below  lUuatretea  overlejr  oella  end  the  nae  of  the  expended 
celling  aequence. 


PRiORAM  IP  PL«T 

DlHSNSltN  A(3)|t(40)|J(S).X(Sl).Vl6i) 
data  (Ae2. 0.4. 0,6.0).  ( JelHA.lHB.lHC) 

K  a  1 

X(l)  ■  -2.0 
00  100  III. 40 

Bd)  ■  S0RTr<X<  I  )**2e<4,0-X(|le*2)) 

X(82-I)  ■  X(P 
100  X(l*l)  ■  X(l)e0,l 
X<41)  a  2,0 
200  D4  300  III, 40 
YU)  ■  A(K)*BU) 

300  Y(62>!)  a  A(K)*B(I) 

Y(41)  a  A(K) 

GO  TO  (400,900)  K 

400  CAUL  ORAPH2(X,Yi6l,3H6X8,'HEXfN.a3,0,l,0,0,l,0,0,5HX,,,SHY,  ,*  JtX)) 
GO  TO  600 

900  CALC  0RAPH2(XiY,81,7H0VERLAY,4HSAME,  J(K) } 

600  K  a  K*1 

GO  TB  (200,200,700)  K>1 
7OO  CAU  PICTURE 
END 


Sea  Figure  3  for  the  reaultlng  outpat. 
Tlalngt 


Flrat  cell  to  (S(AFH2t 
Second  cell  to  GRATH2i 
Third  cell  to  QRAFHEt 
Cell  to  PICTDREj 


0.12  aeeonda 
0U17  aeeonda 
0.07  aeeonda 
0.32  aeeonda 


8.0  Hamas 

None 
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expanding  sine  have 


i 


<  Z  O  ^  ill 
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320.000 


SIHULATED  SAHKUE  CAUCSHP  PLaT 


4 
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Figure  2 


O.C?''  1.000  2.000  j«000  4.000  9.000  6.000  /‘OOO  8.000 


(Page  24  is  Blank) 
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Figure  3 
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